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بسم الله الرحمن الرحيم 
الحمد لله رب العالمين والصلاة والسلام على سيدنا محمد وعلى اله وصحبه الطيبين الطاهرين 
اسئل الله سبحانه وتعالى ان يجعل هذا العمل خالصا لوجهه الكريم 


ارجو ممن يقراء هذه الصفحات واعجبه ما كتبت ان يدعو لي ولأخي المرحوم عمر رحمه الله 


اما بعد 


يعد تعدد الطبقات في بناء التطبيقات شيءَ من الاشياء المهمة بالنسبة للمبرمج » ولكي يبني المبرمج تطبيقا رصينا متينا فيجب عليه اتقان هذه التقنية 
المهمة , والصراحة لم اجد احد من الاخوان يشرح هذه الطريقة بشكل جيد , او ممكن يكون شرحها بشكل جيد ولكن لم يعطي مثال وافي ولذلك سوف نبقى 
في دوامة البحث في الانترنت وفي غير اماكن اسئل الله سبحانه وتعالى ان يوفقني لاتمم عملي هذا بصورة جيدة ومفيدة ينتفع بها كل انسان يحب البرمجة 
ویرغب في تطویر امکانیاته 


اول يجب ان تعرف هذه الت لتسميات 
طبةة llبlنlٽ Data Tier or Data layer‏ 
طؤطبãة Business Tier or Business Layer Jae‏ 


Presentation Tier or Presentation Layer ضرعlا طبةة‎ 


٠‏ الطبقة الاولى- طبقة البيانات - قاعدة البيانات وما تحويه من اجرائات مخزنة 
چ 1 0 الثانية- طبقة الاعمال- کل ا sەsءه|الخاصة‏ بالاتصال بقاعدة البيانات والخاصة بالجداول 
ه الطبقة الثالتة - طبقة العرض - كل ال ۴٠٣۳"‏ يمثل طبقة العرض 


الخطوات الاساسية لبناء تطبيق متعدد الطبقات:- 


1. بناء قاعدة البيانات 

2. بناء ووواZ)‏ خاص بالاتصال بقاعدة البيانات يحتوي على اعدادات الاتصال بقاعدة البيانات 

3. بناء ووها) خاص بكل جدول موجود في قاعدة البيانات الخاصة بنا (طبعا الجداول الغير ضرورية يمكن ان لا نعمل لها ووها٣)‏ كل ووهاz‏ من 
هذه ال sعءوها٣‏ يحتوي على كل الخصائص ءءا†ممه٣۴‏ والطرق sءإمط†مM‏ و الحقول ءك|ع۴i‏ 

4. تصميم طبقة العرض والتي تمثل ال ۴٠۲۳‏ والتي سوف نتامل من خلالها بالطبقات الاخرى 


الان باذن الله سوف ناخذ مثالا بسيطا لتعلم هذه التقنية 
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ابدا مشرو ع_۸٥ا†ه‌ااممsAسهلہWi‏ جديد واتبع الخطوات التالية 


الخطوة الاولى: بناء قاعدة البيانات سوف استخدم 2005 عا م×ع مrvمكS‏ ا90 لبناء قاعدة البيانات اتبع الصور 


TF‏ اعا تی اا 


Solution WindowsApplicatian1 1' 1p‏ ما 


apa a 


Rebuild 
lean 


Publish... 


al) ۴٠ 
Existing Ttern.. “ Add Reference... 

Mew Folder Add Service Reference... 

Windows Forni, Wig lass Diagrarn 

LIser Control... Set as StartUp Project 

Component, , Debug ۴ 
Module... Û) Cut 

lass... 

Rermo'yE 

Rename 

Unload Project 

û Dpen Folder in Windows Explorer 
= 


Properties 


تم اختر عءهaطه†ه2‏ dعءهط-ععviاهك‏ لتكوين قاعدة بيانات من نوع كم كما في الشكل ادناه 


*يمكن ان تختار اي نوع من انواع قواعد البيانات لكن نحن في مثالنا هذا سوف استخدم النوع "f‏ 
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N a‏ کا 
Lode File‏ 3 


HÎ Loamponent lass 
[Êd Dataset 
J Explorer Forrn 
48] 15rript Fila 
| J| Local Database 
E Login Form 
ê] Module 
| Report Wizard 
aervice-based Database 


E]User Control WPF} 
EJ windays Form 
اا‎ #ML Schera 


بعد ان انشئة قاعدة البيانات قم بسحبها الى المسار التالي 


Bin Debug‏ كما في الصورة ادناه 


| Salukian Explorer - WindawsApplicatian 10 


[gl Solution "WindowsApplication1 0'1 p 


E SI WindowsApplication10 


` ت‎ My Project 

E lûy bin 

` Û By Debug 

۲ Databasel mdf 


ا ا کا 


اسم قاعدة البيانات fل".1٥ءه8ه0‏ تحتوي على جدولين هما 
tblUsers‏ ڪ tbICity‏ 


قم ببناء الجدولين وضبط الخصائص كما مبين في الصور ادناه 
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Add Hew Item - Win dowsA pplication1 U 


Templates: 


&] lass Diagram 

Hê COM Class 

FÎ custom Control 

واھ || 

tg Interface 

LN ta SAL Classes 
ا2ا‎ Database ache 
j jpı Parent Form 

8 Report 
EAIResources File 
EZl5plash Screen 

[] User Control 

E WCF Service 

ML File‏ شا 


Laleqories: 


1l Lamman Items 


Web 

< Windows Forms 
- Reporting 

< Warkflore 


ûn empty SAL Server database For service-based data access 
Mame: Database1 mdf 
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الجدول ءerیل|tb‏ 


Server Explorer YH Xx dbo.tblUsers:...DATABASE1.MDF} ° Start Page [ frmCity,Yb [ frr 
ENDI 


Gata Zannections‏ لو ا 
E lf Databasel mdf‏ 


Lolımn Hame Data Type Allo Hulls 


USEFNaAME nvarcharf 2O0) 


ا 
Diagrams ty 32‏ 
tblcit Ll‏ 1 
LD Yiews‏ 
Hl Û Stored Procedures [ Column Properties |‏ 
H-- LO Functions‏ 
HE O Synonyms‏ 
El Table Designer‏ ا 
Hl: | Assemblies‏ 
Loamputed Column Specification |‏ کک 
Payables.mdf ELE Data Type int‏ 8 
[f testExcel.mdf Description‏ # 
SErYErS‏ | اا 
Û iraq‏ # 
Full-text Specification Jo‏ 


Identity Specification 
{Is Identity} 


Identity Increment 
Identity Seed 


Hot For Replication Jo 
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tbا۱٤Ci†ر_لودجلا‎ 


Server Explorer eH Xx dbo.tblcity: T...DATABASE1.MDF} dbo, tblUlsers:,,. DATABASE] . DF; 


ا ا اغا 


2 Lata Lonnections 1 
E1: li Databasel mdf rity nvarchariSD} 
1. 


+1 | O] Database Diagrams 
1 | Tables 
H- Î tblUsers 
LO Yiews 
LO stored Procedures 
I Functions 
LJ Synonyms 
LI Types 
LI Assemblies 
lf, Halloween. mdf Lomputed Column Specification 
T8 MMABooks, mdf Londensed Data Type int 
18 Payables.rndf Description 
# [f testExcel.mdf 
E. EM Servers 
H. E iraq Full-text Specification Jo 


| Zolurmn Properties 


EE“ EEE.“ E.E] 


E-I 


TF 


El Identity Specification 
{Is Identity} 


Identity Increment 
Identity Seed 


Hat For Replication o 
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الخطوة الثانية: اضف مشروعا جديدا الى مشروعنا الحالي من نوع ل١٣۲ طا وه ا٣ وقم بتسميته اي اسم ترغب به انا بالنسبة الي سوف اسميه‎ 
كما في الصور ادناه‎ NuhammadData 


3F WindowsA pplication11 - Microsoft Visual Studio 


Edit View Project Build Gebug Data Tools Test Windom Hel 
غ ا ا اا ۔ ق‎ Leb 


| Nem ProjecE,,, 


lose Hey Web Site... 


Peyy 


pen ۴ 
Add 


Close Solution Existing Projert,.., 
Save WindowsApplication11 Ztrl+5 Existing Web Site... 
Save WindowsApplication11 As... : 


5oaYe A Ltrl+Shift+5 


mB WÛ, 


Export Template... 


Recent Files 
Recent Projects 


Exit 
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Ald New Project 


Project types: Templates: ‘NET Framework 3,5 خا ف‎ 


3]: Yisual Basic Yisual Studio installed templates 


Windows 
Web El windows Forms Application 
Smart Device E] WPF Application e] WPF Browser Application 


office console Application [e] Empty Project 

- Database (E windows SEFYÎCE ge WPF Zustorm Control Library 
Reporting [HE] WPF User Control Library E] windons Forms Control Library 
Test 

i WLF My Templates 
Workflony 


E Yisual C# il oearch Gnline Ternplaktes,,, 
: - isal C++ 

IH: Other Project Types 

+l: Test Projects 


û project for creating a YE class library {dll {ET Framework. 3,5} 


mMuharrmnadÛata 


Li Documents and Settings Muhammad, DocumentsiYisual Studio ZO081Projects Windowsê 


الان نقوم الان بتكوين ال وءعءءها لكل جدول كما ذكرنا سابقا بالاضافة الى وجا خاص للاتصال بقاعدة البيانات 
اضف خمس ها٣‏ وقم بتسميتها كما يلي 

clsDBconnection 

clsUsers 

clsCMDUsers 

clsCity 

clsCMDCity 


طبعاً ال وعءوءه|ا اعلاه تضاف الى مشروع ال ۲۷ة۲ طا sوها٣‏ كما في الصورة ادناه 
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e solution Explorer - Muharmm... w HM i 
r- : 

1 کک اک | ي 

= 

dd [al salution WindowsApplication1 1" (ã pj 

i... Evel EET tH 


Rebuild 
lear 


Project Dependencies... 


Project Build Order... 


i 


Ney em, ,, 


Existing Ikern,.. Add Reference... 


New Folder Add Service Reference... 


Windows For; el Yi Class Diagram 


User Control... Set as StartLIp Project 


j E Hi FE 


Lormponent,.. Debug 


Module... uk 


RermayE 


Renamë 


LInload Project 


pen Folder in Windows Explorer 


î 
Ê Properties 


ثم ما عليك الا ان تدخل الاسم مثل اموا او .... اكمل الباقي.. 
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الخطوة الثالثة : اعداد الاتصال بقاعدة البيانات : هذه الخطوة تعتبر من الخطوات المهمة التي يمكن وصفها بقلب البرنامج. لايمكن ان تضع سلسلة 
الاتصال داخل احد الاصناف وها لان هذا الصنف سوف يكون ملف 1ا01 كما سنرى , وكما معروف ملف ال اا0 لايمكن تحريرة(للمسخدم العادي) 
لذلك عند وضع برنامجك على هيئة ملف مد†ء؟ وتنصيبه على حواسيب المستخدمين كيف ستعدل عندئذ سلسلة الاتصال هل سوف تحدد المستخدم 


الحل هو: ان تستخدم ملف الاعدادات عا؟ممء.م مج ولكن يجب ان تنتبه دوما نحن نملك الان برنامجين برنامچ WindowsApplication عgi ja‏ 


ونوع اخر هو رهطا P5‏ الان ايهما سوف تستخدم ملف اعدادته هذا ام هذا ؟؟!! 


کبف؟؟ 


اول اضبط الاعدادات في البرنامج الذي نوعه رهطا وها قم بالنقر المزدوج على اءمزهإ" و" وفي الخاصية Name‏ اكتب conSTring‏ 
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ويجب ان يكون النوع ع”ذ۲†؟ «هiاءمممه‏ بعدها اضغط الزر لجلب سلسلة الوصول لقاعدة البيانات التي انشئناها في البداية لاحظ الصور ادناه 


لتكتمل عندك الصورة 


Application settings allow ¥ou to store and rektrieywe property settings and other information For ¥our application dynamically, For exarnple, the application can save a user's 


uu ا‎ 


Application Synchronize [E] ¥iew Code Access Modifier: Friend 
Compile 
e calor preferences, then retriewe therm the next time it runs, Learn more about application settinqs... 
ebug 
References Nare Type Scope Yale 
۴ 1 jon strî icati 1 
Resources {Zonnection string} Application 
* یه په‎ 
Services 


لجلب سلسلة الاتصال 


MuhammadData*  Form1 vb [Design] | Start Page 


Settings* 


Signing 


My Extensions 


Lompilë 
Application settings allow you to store and retrieve property settings and other information For your application dynamically, For exarnple, the application can save a user's 
color preferences, then retrieywe them the next time it runs, Learry Dg N ggg 
Debug Connection Properties 
References Name Type Scope Enter information to connert to the selected data source or 
ا‎ iC tion strin) Î applicati click "Change" to choose a different data source andor 
Rêb constring onnection string pplication provider, 
Servires Select SOL Server Database File 
setkings* 
Signing 
My Extensions My Recent 


Documents 


۴ 


Desktop 


My Documents 


ك 


My Compuker 


»/ File name: Databaszel 
الک‎ 


My Network. Files of type: Microsoft SAL Server Databases [mdf] 


وافتح ملف الاعدادات عا؟هء.م مه وقم بازالة علامات الاقتباس المحيطة بالمسار ”...ع c:Documents and Se ††i‏ ” وکن حذراً وقم بنسخ 


الكود الخاص بسلسلة الاتصال كما يلي 
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iS LEL LL LL : 
«îxml veraion="1,0" encoding="utf-ğ" 2» ی 8 چ‎ Hl 
seonfigurat ion? ا آ1‎ Solution uhammadData' 3 projects} 
sconfigBect inns E El MuhammadData 
4f conf igSect ions> dl My Project 

2 app.config 

Î ety vb 

8] clsCMDCity, vb 

Î clsCMDUsers,vb 

8] clspBConnectian, vb 

Î clallsers,yb 
. RE ا ا‎ 


1 SOR 
4aystem, diagnostics? 
<SOUECES> 


قم الان بالنقر المزدوج على اعم‌زه۴r My‏ الخاص ب ٣‏ 0ا†icaاWindowsApp‏ واذهب الی وچہttiم؟S‏ وضع اسما ولیکن ع0۸5۲۸ ونوعه 
Connection String‏ كما فعلنا سابقا في المشرو ع r۵٣۷‏ 5اا sئھا٥‏ 


بعدها افتح واfمهء.ممه‏ واستبدل سلسلة الاتصال الخاصة بال ”0ااةicاممsA Window‏ بالسلسلة الخاصة ببرنامج ال رطا كا٣‏ وحفظ 
التغيرات قم بحذف ال عام هء.ممه الخاص ب مشروع Class Library‏ 


الان تعتبر مشكلة الاتصال بقاعدة بياناتنا منتهية اتمنى يكون شرحي واضح في هذه النقطة 


نعود لكتابة الاكواد الخاصة بالتعامل مع سلسلة الاتصال بقاعدة البيانات 


الکود النھائ«٭ iآ clsDBconnection‏ 


xoq[oa | i. |aa4odx< 3 a1325 


3 


Imports System.Data.SqlClient 
Public Class clsDBConnection 


Public Shared Function GetConnection() As SqlConnection 
Dim connectionString As String = My.Settings.conString 
Return New SqlConnection (connectionString) 

ERQ. FÛRêÊ Lo 


C198 
بشکل سریع جداً‎ CاassDiag‎ ram قبل كتابة بقيت الاكواد سوف نتطرق الى موضوع استخدام ال‎ 
= ددد هذه المنطقة _خاصة بال صهإعهأطءوءهاع يمكنك تجاوزها هى بس للتذكير حتى تسهل عليك كتابت الحقول والخصائص‎ 


الان سوف استخدم ۳ه١عه0iءءها)‏ وهو شي خياري تستطيع الاستغنئ عنه. بالحقية ال ۳ه٣عه0iءءها٣‏ سوف يساعدنا في كتابة الكود الخاص 


بالحقول والخصائص قليلا وهو جميل جدا (لاتخف هو ليس ۷2۲4 بمعنى الكلمة) اتبع الصور التالية لكي تتضح الصورة امامك في كيفية استخدامه 
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Solution Explorer - WindowsApplicaktian 1 U 


Eg 
dS AEA 


r" Solution WindomsApplication1D' {1 project} 


3 Erna Bl... Ml = = o dh 


Add Reference... 


Add Service Reference... 


RermayE 


REenamEë 


UInload Project 


F۴ pen Folder in Windows Explorer 
Ê Properties 


سوف تظهر الشاشة ادناه 
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I WindowsApplication1 O0 - Microsoft ¥isual Studi 
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File Edit Yew Projert Build Debug Class Diagram Data Tools Test Window Help 


~7 Debug 


Any CPU‏ > © س 27 دا 


- 1 LEÊ Ê 


> [ğ} dsBalanceDBron 


8 a aT anl @ @ 00%» = _ 
| Server Explorer E ClassDiagram1.cd™ / Start Page T frmCity.vb T frmcity.wb [Design]  clsUsers.#b* f Formt.vb T clscity,vb | 3 x Salution Explorer - Solution windowsApplica,.. ج‎ Hl xX 
r7 ا‎ ٣ 
HECT EE 
5 8 Data Connections F1 Solution WindowsApplication1D' {1 project} 
5 lk Database1 mdf ۶ 2 : ۳٣ 3 2 WindowsApplication1 O 
ا‎ O Database Diagrams clsCity (¥ clsDBConnection [¥ clsUsers 1 My Project 
ِ Class Class Class - Êl bin 
ا ا ا 3 إ‎ a ClassDiagraml .cd 
ا‎ E] cscity.yb 
HH Û Views E] dsDBConnection,yb 
- Stored Procedures ۴ ٩ E] clsllsers.wb 
I Functions | Formi E frmcity [I Formi.sb 
I Synonyms Class Class E frmcity,rb 
E Types =P Form # Forrn 
ON Assemblies 4 ا‎ 
I, Haloween.mdf Properties Nx 
WJ, mmaBools mdf 2 | ClassDiagram1 Class Diagram r 
I, Payables.mdf MySettings | 
I, testExcel.mdf Notînheritable Class ™ 
% ApplicationSetingsEase 
Servers Group By kind 
Bl Members Format Namê 
i MySettingsProp... [ً Resources ¥ MyApplication ¥ 
Module Modula lass 
1 ا‎ 1 +$ windowsFormsApphzai 
ا‎ 
ا‎ Group B¥ 
ll | Select the way to group members of types: grouped by 
ig Server Ex... [3ê Taolbox 1 2 8 member kind, grouped by access, or sorted in alphab... 
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E code Definition window lh Error List| E utput| LE Class Details| 


Ready 
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Class Details واختر‎ Classes انقر باليمين على احد اد‎ 


I | 1 clsllsers 


IntelliSense 


Show Base lass 


Show Derived Classes 


Expand 


Lreakte Instance ۴ 
Invoke Static Method F 
Adjust Shapes Width 
Uk 


Copy 


lass LOpY Image 
= ind 


RermoYe from Diagram 


Geleke Zode 


Wie Lode 


سوف تظهر الصورة ادناه لكنها فارغة اي ليس بها خصائص ولا حقول اذا استطعت اكتب الخصائص والحقول التالية 


ً elsDBConnertion 
las 


` frrmcity 
Eb 
=F Farr 


Resources 
Module 


string Public 
Integer Public 
String Public 
String Private 
Integer Private 
String Private 
٣اهوء *بعد كتابتك للخصائص والحقول لم تند تك بعد فعليك اضافة بعض الكود الى ال‎ 


١ clsCity 
la35 


MySettings 
HoatInheritabls Zlass 


=F ApplicationSettingsE ase 


¥ 


` MySettingsProp... 


Nadule 
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E1 Properties 
E city 
Î UserID 
UserName 


3-- Fields 
2# Cy 
9# _ 10 
9# _UsElamEê 
ټ‎ 

EI Events 
# 
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الكود النهائى لل ومولءاع‎ 


Public Class clsUsers 


" الخوخ مزر اعاة وجنت الخقول اساء تعربق îRêg16® "- FÎe10s‏ 


Private _UsérID As Integer 

Private _userName As String 

رققي بالاضل انه فغ مرنك ثصي التوع وضخت اتي اظ لي" Private City As Stel‏ 
0604 وغه ولكن فنقسه الخقل على جتوي اخر جدول مربوط الخدول لاآنه وذلك' 

المحديتة اتخ لاظهار 7615 1556٤‏ استخدم وسوف' 


#ENnd Region 


fRêg1906 " ©0ASTEFÛSGEÖF aرغعت اوق االالي‎ " 
Public Sub New () 


Ad. Sib 
#FEnd Region 


1 


"نلي كفا خاصية يقابله الخدول في عقوة لكل الخصائض iêSاÖ6pêF£‏ 6" #Rêğ1o‏ 


Public Property UserlD() As Integer 
Gê 
Retüûrn _UserID 

End Get 

Set (ByVal value As Integer) 

_UserID = value 

End Set 

End Property 


Public Property UserName () As String 


Get 
Return _userName 
End Get 
Set (ByVal value As String) 
_userName = valu 
End Set 
End Property 


PUBILLEe PEOBEEEY CIiEY() A8 SEES 
Gêl 
REED.  CIEYy 

End Get 

Set (ByVal value As String) 

_City = value 

End Set 

End Property 

#ENnd Region 


#ENnd Region 


ENG CLASS 
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cاء‎ ٤o M0 الكود النهائى لل وء ءءل‎ 


الت فة اقل و اف ا فا فة 


AS: LIEGE 
GetConnection 


connection) 
User.UserNam 


) 


User.City) 


ons 


N-Tier Applicati 


Imports System.Data.SqlClient 


Public Class clsCMDUsers 


الخاضصة الطرق' 


#Region " AddNew - UpDate -Saerch Methods 


#Region " AddNew ةãjilضil"‎ 


unction AddUser (ByVal User As clsUsers) 
connection As SqlConnection = clsDBConnection. 
insertStatement As String _ 
= INSERT TbDIUSEES (USEENAMEECLEY)™ 5 
& "VALUES (@username, Gcity)" 


PUBILILE ShéFeQd F 


Dii 
Di 


Dim insertCommand As New SqlCommand(insertStatement, 


insertCommand. Parameters. AddWithValue ("@Gusername", 
insertCommand. Parameters. AddWithValue ("@city", 
TEY 
connection. Open () 
insertCommand. ExecuteNonQuery () 
Dim selectstatement As String _ 
= TSELECT IDENT CURRENT("EBLIUSEES" )}) FROM ‘tBIUSsEES™ 


connection) 


Latement, 
HxecuteScalar) 


Dim selectCommand As New SqlCommand (selects 
Dim userID As Integer CInt (selectCommand. 
RELUEN USeEID 

HxCEep 


Lion 
Throw ex 


Catch ex As Sql 


FiRaAILIy 


connection.Close () 
TEY 


ERA. FUBDEE LON 


Region " Update ثیيدحجتلنlا"‎ 


End 


End Region 


Public Shared Function UpdateUser (ByVal oldUser As clsUsers, ByVal newUser As 
clsUsers) As Boolean 

Dim connection As SqlConnection = clsDBConnection.GetConnection () 
Dim updateStatement As String _ 

= TUPDATE TbIUsEFES SET ™ _ 

&« "UserName = @NewUserName, " _| 

& "CICY = ONEWGLEY TT £ 

& "WHERE userlIlD = @OlduserlD " 
Dim updateCommand As New SqlCommand (updateStatement, connection) 
updateCommand. Parameters. AddWithValue ("@GNewUserName", newUser.UserName) 
updateCommand. Parameters. AddWithValue ("@GNewCity", newUser.City) 
updateCommand. Parameters. AddWithValue ("@GOlduserID", oldUser.UserlD) 
updateCommand. Parameters. AddWithValue ("@GOldusername", oldUser.UserName) 
updateCommand. Parameters. AddWithValue ("@GOldCity", oldUser.City) 
TEY 

connection. Open () 

Dim count As Integer = updateCommand. ExecuteNonQuery 
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As List (Of clsUsers) 


= SELECT userid, username, tblcity.city FROM tbLUSerES. ARnNEE IOIN tOLELEY on 
tblusers.city = tblcity.cityID WHERE userName LIKE '%' + @mykeyWord + '$%'" 


Dim selectCommand As SqlCommand = New SqlCommand (selectStatement, connection) 


ا ا 


ELECT USEFI, uUSeERNamê ca [ad TFEBDLELEYEELEY 
Vy OF EBDIUSEESSCLEY = EBDLELEY.CIEYID WE 


HERE 


ELOR) 


"ا الات أي الاشسخ ‏ حن جز كربجر خو امسظة النجة - "S625‏ 1۸601608 


= New List (Of clsUsers) 


Dim connection As SqlConnection = clsDBConnection.GetConnection 


ue ("@mykeyWord", mykeyWord) 
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If count > 0 Then 
Return True 

Else 

Return False 

EA. TÊ 

Catch ex As SqlException 
Throw ex 

Finally 
connection.Close () 

EO TEY 

Ed FUNEE Oh 


#ENnd Region 


Public Shared Function GetUserName (ByVal mykeyWord As String) 


Dim userslList As List (Of clsUsers) 


Dim selectStatement As String 


selectCommand. Parameters.AddWithVal 
connection. Open () 
Dim reader As SqlDataReader = 


selectCommand. ExecuteReader (CommandBehavior.CloseConnection) 


.ToString ' 0 userid 


users.UserName = reader ("userName") .ToString '1 username 


EEING 2 CEY 


بالتتائج قاشخهة اازخاع او جحتضديز «تقوخ 


الكوةد استجد ام كنك اD5aE235ê Š& £@ğëUFEIÎ‏ 


Dim users As clsUsers 

Do While reader. Read 

users = New clsUsers 
users.UserID = reader ("userid") 


users.City = reader ("City") .ToS 
usersList.Add (users) 


LOOP 


reader.Close () 
۲ 


Return usersList 


Ed FünEtELon 
#ENnd Region 


#Region " Just Example to use this method +t 
داتاسنة الازحخلاع کان‎ 
هة الطربقة .هلكه"‎ 


"Public Shared Function GetUserName (ByVal mykeyWord As String) As DataSet 


connec 


clsDBConnection.GetConnection 


New SqlCommand (selectStatement, 


1 Dim DS1 As New DataSet 

Dim connection As SqlConnection = 

Dim selectStatement As String = "S 
as [ãiyıkl| FROM tblusers inner JOIN tblcit 
userName LIKE '%' + @mykeyWord + '$%'" 

1 Dim selectCommand As SqlCommand = 


selectCommand. Parameters. AddWithValue ("@mykeyWord", mykeyWord)‏ ا 


connection. Open () 


! Dim DataAdapterl As New SqlDataAdapter (selectCommand) 
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1 DS1.Clear () 
DataAdapté£1.FiL1(DSLy, "EbLUSEES"™) 
CONNECELOR: CLOSE () 
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! Return DS1 
End FUNCELOoOR 


#ENnd Region 


TREO ™ TT Oe CHES FUNCTION WHER T ELLER oR DCEaEGEIOVLêW 4 F6E Î. di. فاك القن‎ 
مر اة ئ اداناك توق الد اا رة‎ 

Public Shared Function GetByUserID (ByVal userID As Integer) As clsUsers 
Dim connection As SqlConnection = clsDBConnection.GetConnection 
Dim selectStatement As String = "SELECT userid,username,tblcity.city FROM 
tblusers inner JOIN tblcity on tblusers.city = tblcity.cityID WHERE userID = @userlID" 
Dim selectCommand As SqlCommand = New SqlCommand (selectStatement, connection) 
selectCommand. Parameters.AddWithValue ("G@GuserID", userlID) 
connection. Open () 
Dim reader As SqlDataReader _ 
= selectCommand. ExecuteReader (CommandBehavior.SingleRow) 'بJl>ۈ‎  رjط¡آwسw‎ 


و اخد 


Dim myUsers As clsUsers 

ader.Read Then 

yUsers = New clsUsers 

yUsers.UserlD = reader ("userID").ToString 
yUsers.UserName = reader (1) .ToString 
yUsers.City = reader (2) .ToString 


Else 


myUsers = Nothing 
ERO LE 
reader.Close () 
RetUFN myUsers 
End FUNEtE Lon 
#ENnd Region 


#Region "Delete User فزizè‎ مدختwn"‎ 
Public Shared Function DeleteUser (ByVal User As clsUsers) As Boolean 
Dim connection As SqlConnection = clsDBConnection.GetConnection 
Dim deleteStatement As String _ 
= DELETE FROM tBIUseErg " | 
& "WHERE USEEID = @GUSEEID YT _ 
& "and username = @username " 


Dim deleteCommand As New SqlCommand (deleteStatement, connection) 
deleteCommand. Parameters.AddWithValue ("GuserID", User.UserlD) 


deleteCommand. Parameters.AddWithValue ("Gusername", User.UserName) 
deleteCommand. Parameters. AddWithValue ("@city", User.City) 
TEY 


connection. Open () 

Dim count As Integer = deleteCommand. ExecuteNonQuery 
If count > 0 Then 

REEUED:. TES 


Else 

Return False 

ERQ. TE 

Catch ex As SqlException 
THEOW ex 

FiRaLLy 
connection.Close () 

ERG. TEY 
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ENS FUNEE LON 
#ENnd Region 


#ENnd Region 
End: CIS 


الكود النهائى لل رخا€ءاء 


Imports System.Data.SqlClient 
PUDLIT OLE CLSCTEY 


PFFIVALS _ CIEyID. RE INEESGEE 
PFIValLê _Cily AS STEIN 


Public Sub New () 


ERAQ SUb 


Public Property CityID() As Integer 
Get 
ReêtüUEh _CilyIDbD 

End Get 

Set (ByVal value As Integer) 
_CityID = value 


End Set 
End PEOPpEFEY 


PUDLLES PEOpDEFEY CIEy(0 A5: SEEMS 
GE 
RelUEh _CILy 


End Get 
Set (ByVal value As String) 
_City = value 


End Set 
End Property 


ANd Class 
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الكود النهاة 


clsCMDCIty آÛ‎ 


Imports System.Data.SqlClient 


PODLLE Ola CLSCMDCILEY 


Public Shared Function GetCityList () As List (Of clsCity) 
Dim cityList As New List (Of clsCity) 
Dim connection As SqlConnection = clsDBConnection.GetConnection 
Dim selectStatement As String 
=. HEE EBCT ®™ EROM EBEETEY™ 
Dim selectCommand As New SqlCommand (selectStatement, connection) 
TEY 


connection. Open () 
Dim reader As SqlDataReader = selectCommand. ExecuteReader 
Dim city AS CISCIEY 
Do While reader.Read 
city = New clsCity 
CICyY. CIEYID = CIRE (Eeadêér (TCLEYVEGA™)) 
city.City = reader ("City") .ToString 
cityList.Add (city) 


LOOP 
reader.Close () 
Catch ex As SqlException 
THEOW 6% 
Finally 
connection.Close () 
End Try 
Return cityList 
ERQ FUE Lon 


Public Shared Function Addcity (ByVal city As clsCity) As Integer 
Dim connection As SqlConnection = clsDBConnection.GetConnection 
Dim insertstatement As String _ 

2 INSERT EBDICEEY ELEY 
& VALUES. (CotEy)™ 
Dim insertCommand As New SqlCommand (insertStatement, connection) 


insertCommand. Parameters.AddWithValue ("@Gcity", city.City) 


TEY 
connection. Open () 
insertCommand. ExecuteNonQuery () 
Dim selectstatement As String _ 
= ` WSELECT EDENT CURRENT TEBLETEY") EROM EBLETEY™ 
Dim selectCommand As New SqlCommand (selectStatement, connection) 
Dim RevID As Integer = CInt (selectCommand. ExecuteScalar) 
REEUERN .ReVID 
Catch ex As SqlException 
Throw ex 
Finally 
connection.Close () 
EAA TEY 
ERQ. FUREE lof 
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Public Shared Function Updatecity (ByVal oldcity As clsCity, 
ByVal newcity As clsCity) As Boolean 
Dim connection As SqlConnection = clsDBConnection.GetConnection () 
Dim updateStatement As String _ 
= FUBPDATE. EbLCLCY SET 
& COLE ONENEIEY. PF _ 
& "WEERE eityID = @OldeltyID ™ _ 
& "ANd EIEyY = Goldcity ™ 
Dim updateCommand As New SqlCommand (updateStatement, connection) 
updateCommand. Parameters.AddWithValue ("G@Gnewcity", newcity.City) 


updateCommand. Parameters. AddWithValue ("@GoldcityID", oldcity.CityID) 
updateCommand. Parameters. AddWithValue ("@Goldcity", oldcity.City) 


TEY 
connection. Open () 
Dim count As Integer = updateCommand. ExecuteNonQuery 
If count > 0 Then 
REEUHEE. TES 


Else 

Return False 

ERQ TÊ 

Catch ex As SqlException 
Throw ex 

Finally 
connection.Close () 

ERQ: TEY 

ERQ. FUSE oN 


Public Shared Function GetcityBycityID (ByVal cityID As Integer) As clsCity 
Dim city As New clsCity 
Dim connection As SqlConnection = clsDBConnection.GetConnection 
Dim selectsSstatement As String _ 
= "SELECT * FROM tblcity WHERE cityID = @cityID" 
Dim selectCommand As New SqlCommand (selectStatement, connection) 
selectCommand. Parameters. AddWithValue ("@cityID", cityID) 
TEY 


connection. Open () 
Dim reader As SqlDataReader _ 

= selectCommand. ExecuteReader (CommandBehavior.SingleRow) 
If reader.Read Then 


ELEY SCIEVED = CINE (EFEaIEE(TETEYTID™)) 
city.City = reader ("city") .ToString 


Else 

ELEY = NOERIRG 

ERAQ. LE 
reader.Close () 

Catch ex As SqlException 
Throw ex 

EFIRELLY 
connection.Close () 

ERA. TEY 
Return city 

End Funct Lon 


Public Shared Function Deletecity (ByVal city As clsCity) As Boolean 
Dim connection As SqlConnection = clsDBConnection.GetConnection 
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Dim deleteStatement As String 
= "DELETE FROM tblcity " 
&« "WHERE cityID = @cityID " _ 
& aNd CIEy OOTY 


Dim deleteCommand As New SqlCommand (deleteStatement, connection) 
deleteCommand. Parameters. AddWithValue ("@cityID", city.CityID) 
deleteCommand. Parameters.AddWithValue ("@Gcity", city.City) 


TEY 
connection. Open () 
Dim count As Integer = deleteCommand. ExecuteNonQuery 
If count > 0 Then 
REEUER. TES 


Else 

Return False 

ERQ TE 

Catch ex As SqlException 
ThIEFOW x 

FIRA Lg 
connection.Close () 

ERA TEY 

ERG FONEETOR 

ENO CES 


بعد الانتهاء من كتابة الاكواد يجب عليك عمل ل ااںع لل رهطا sووا‏ بالنقر يمين ثم اا8 هذه العملية سوف تنتج ملف واحد اسمه 
اHuhammadData.dı‏ بعد حصولنا على هذا الملف یجب اضافته کمرجع الى ال ٣io†ھicاممowsA Wind‏ وذلك بالنقر یمین علی 
pî WindowsApplication‏ |ختر Add Reference‏ ومن صفحة التبویب llئمسمlٽ Project‏ |ختر OK pءãî MuhammadData‏ 


Add Reference 


| د‎ | | Projects | jrowse |j Recent 


Project Name ۍھ‎ Project Directory 
MuharmrmadData LM Documents and SettingaslMuhammadiMy D... 
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طبقة العرض‎ 


الان نصمم الواجهة او طبقة العرض ضع الادوات الملائمة و سمها كما مبين ادناه 
الواجهة الرئيسية 


EE Formî 5 


txtUser ID ml | 
Mg SEES 


ڪڪ 


الکود النھائي ل ۴٥١۳٣1‏ 


Imports MuhammadData 'Classes+«leدıiwاl‎ «lضف ال على يحتوي الذي lاkشرaع اسم‎ 
PUDLLE CLASS Fort 


Dim users As cl1lsUsers '+*lشil‎ ةخسwنi‎ jùنم الکلاس‎ 
PEivate üsersList As List (9Ê c1sUserls) التكلاس سن الغاقدة القو ائخ اشتخs اخ"‎ 


Private Sub Forml1 Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase.Load 
LoadCOmboBoxes () 'Jيnzaëãildl‎ JI cmbCIty ميقتllب‎ 


Eid SOB 


Private Sub LoadCOmboBoxes() ' 
طالقتمخ ع60601 'الے التخميل'‎ 
Dim CityList As List (Of clsCity) 
CityList = clsCMDCity.GetCityList 


cmbCity.DataSource = CityList 
cmbCity.DisplayMember = "City" 
cmbCity.ValueMember = "Cityid" 
cmbCity.SelectedIndex = -1 
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End Sub 


Private Sub PutUserData (ByVal users As clsUsers) 


الكلاس الى النص مربع من القيم لحشر' 
users.UserName = txtUserName. Text‏ 
users.City = CInt (cmbCity.SelectedIndex + 1)‏ 


ERG SOB 


Private Sub btnSave_ Click (ByVal sender As Object, ByVal e As System.EventArgs) 
Handles btnSave.Click 


TE LRACUSEEID. Text = ™ Thêٍ٘ ' حفط او خديدة قيمة اوخال تريه المحمتخدم حل عرق‎ 
اتال‎ 
If Trim (txtUserName.Text) = "" Or cmbCity.SelectedIndex = -1 Then 
MSS8Ö6X (" الاوخال ية اتتة‎ ”( 
ERIE SUB 
End If 
users = New clsUsers 
Me: PûEUse£DaEa (û $êES) "بكخèل الحديندة القجم‎ 
TEY 
users.UserlD = clsCMDUsers.AddUser (users) 
MessageBox. ShOW ("دقتl ("البیانات حفظ ى‎ 
Catch ex As Exception 
MessageBox. Show (ex.Message, ex.GetType.ToString) 
Ed TEY 
Else 
If Trim (txtUserName.Text) = "" Or cmbCity.SelectedIndex = -1 Then 
MS38©6%(™ الاذغال شملكة انتم‎ “( 
EXT. SUB 
ENd FE 
Dim newuser As New clsUsers 
newuser.UserlD = users.UserlD 
Me.PutUserData (newuser) 
TEY 
If Not clsCMDUsers.UpdateUser (users, newuser) Then 
Messaãğ68Bo#:ShOW(" ‡ خطا" ,"التحدية عملية اتنا خطا جحوجكد ,ر الحفظ تخ‎ 
2) 
Me.DialogResult = DialogResult. Retry 
Else 
users = newuser 
MsGB6%(" dêl السجل عل التغدبلات حفط ٭‎ "( 
EIQ. TÊ 
Catch ex As Exception 
MessageBox. Show (ex.Message, ex.GetType.ToString) 
ERQ TEY 
ERG. TE 
clsDBConnection.GetConnection.Close () 
ClearAl lBoxes () 
usersList = clsCMDUsers.GetUserName (txtSearch. Text) 'öةداlۍelل الداتا في القيم عرض‎ 
کو‎ 
DataGridView1.DataSource = usersList 
End SUb 


EN‏ ل تنظ" 
Private Sub ClearAllBoxes ()‏ 
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txtUserIlD.Text = "" 
txtUserName. Text = "" 
cmbCity.SelectedIndex = -1 
ERd Sub 
التفترض مزتعات افق التيانات تعرض كرد الهاكا  الي الضغط عند'‎ 
اللستخدذم رقع غلى  اعتفادا'‎ 
Private Sub GetUser (ByVal userlD As Integer) 
TEY 


eng_muhammad76 


users = clsCMDUsers.GetByUserlID (userlID) 
If users Is Nothing Then 
MessageBox. ShoW (™ dN [i0 HE!) 


Else 
Me.DisplayUser () 


EA TLE 
Catch ex As Exception 


MessageBox. Show (ex.Message, ex.GetType.ToString) 
ERA. TEY 


ERQ Sub 
النصوص مربعات في القيم لعرض'‎ 


Private Sub DisplayUser () 
ClearAllBoxes () 
txtUserID.Text = users.UserID.ToString 
tLxtUserName. Text = users.UserNam 
cmbCity.Text = users.City.ToString 
End. SUb 
Private Sub btnDelete Click (ByVal sender As System.Object, ByVal e As 


System.EventArgs) Handles btnDelete.Click 
TEY 


Dim result As DialogResult _ 


= MessageBox. SHOW ("Ja قم السجJل حiف تريد‎ + " € 
users.UserlD & "?", 


dil", MessageBoxButtons. YesNo,‏ کا کا 
MessageBoxIcon.Question)‏ 
If result = DialogResult.Yes Then‏ 

TEY 


If Not clsCMDUsers.DeleteUser (users) Then 
MessageBox. Show ("كdlia‎ ةلlکn‎ ") 
GetUser (users.UserlID) 
If users IsNot Nothing Then 
Me.DisplayUser () 


Else 


Me.ClearAllBoxes () 
ERE TE 
Else 


Me.ClearAllBoxes () 

ERQ IÊ 

Catch ex As Exception 

MessageBox. Show (ex.Message, ex.GetType.ToString) 
End. TEY 

EG. TÊ 
Catch ex As Exception 

MsgBox (ex.Message.ToString) 

End. TEY 

ClearAllBoxes () 

usersList = clsCMDUsers.GetUserName (txtSearch. Text) 
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DataGridViewl.DataSource = usersList 
ENG SUD 


Private Sub btnAddNew Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnAddNew.Click 

ClearAllBoxes () 
1d. Sib 


El 


Private Sub btnSearch Click (ByVal sender As Object, ByVal e As System.EventArgs) 
Handles btnSearch.Click 


usersList = clsCMDUsers.GetUserName (txtSearch. Text) 'ثحaıلllل‎ je باستخدام اسم‎ 
الد الة‎ J 6EUSENaMe 
DataGridView1.DataSource = userslist 'ٍضرe‎ چأlتةilاl‎ öةدئاعلا الداتاكرد في‎ 


End . Sûb 


Private Sub DataGridViewl CellClick (ByVal sender As Object, ByVal e As 
System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick 
اكد ال ال و اشتادة. اللمستخدح رقع لد"‎ E 
TEY 


Dim i As Integer = e.RowIndex 
Dim row As DataGridViewRow = DataGridView1l. Rows (İi) 
Dim myuser As clsUsers = CType (row.DataBoundItem, clsUsers) 


Dim userID As Integer = myuser.UserID 
Me.GetUser (userID) 

Catch ex As Exception 

MsgBox (ex.Message.ToString) 

EO TEY 

ENG Sub 


Private Sub btnShowCityForm Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnShowCityForm.Click 
اة تاقد التعرض'‎ 
Dim frmcity As New frmcity 
frmcity.ShowDialog () 
ENG SUB 


Private Sub cmbCity_ Click (ByVal sender As Object, ByVal e As System.EventArgs) 
Handles cmbCity.Click 

المنسدلة القائمة الى القيم لتجحميJ'‏ )( LoadCOmboBoxes‏ 

ENG SUB 

EA. CS8 
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الان النافذة الخاصة بالمحافظات راأع"۲؟ 


ptnDelete 


الكود النهائي لل fr" City‏ 
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Imports MuhammadData 


PODLLE: Ola FENECIEY 


Dim CIty AS CISCIEY 


Private Sub frmcity Load (ByVal sender As System.Object, ByVal e As System.EventArgs) 


Handles MyBase.Load 


LoadDataToGrid () 


End Süûb 


Private Sub PutcityData (ByVal city As clsCity) 


city.City = txtCity.Text 


End Süb 


Private Sub btnSave_ Click (ByVal sender As Object, ByVal e As System.EventArgs) 


Handles btnSave.Click 


If txtCityID.Text = "" Then 
city = New clsCity 
Me.PutcityData (city) 
TEY 
city.CityID = clsCMDCity.Addcity (city) 
MessageBox. ShOW ("دقÛ‎ # البجیانات حقظ‎ "( 
Catch ex As Exception 
MessageBox. Show (ex.Message, ex.GetType.ToString) 
ENQA TEE 
Else 


eng_muhammad76 


N-Tier Applications 


Dim newcity As New clsCity 
newcity.CityID = city.CityID 
Me. PutcityData (newcity) 

FEY 


If Not clsCMDCity.Updatecity (city, newcity) Then 
MeSsagê6BoxX. SOW (™ & غفا ",ر" التحختية عقملية انها .حخطا يزؤجد م الحقظ يدخ‎ "( 


MessageBox. Show (ex.Message, ex.GetType.ToString) 


ByVal e As 


Me.DialogResult = DialogResult.Retry 
Else 
city = newcity 
MSG8BOxX(" 2a 2 المشجل غلى التعانلات حفط‎ "( 
End TÊ 
Catch ex As Exception 


ERQ TEY 


Ed TÊ 


clsDBConnection.GetConnection.Close () 


ClearAllBoxes () 
LoadDataToGrid() 


ENI SUS 


Private Sub ClearAllBoxes () 


txtCity. Text = "" 
EXECIEVID.TExX = WT 


ENO SUD 
Private Sub LoadDataToGrid () 


Dim cityList As List (Of clsCity) 
cityList = clsCMDCity.GetCityList 
DataGridView1l1.DataSource = cityList 


ENd. SUD 


Private Sub Getcity (ByVal cityID As Integer) 


TEY 


city = clsCMDCity.GetcityBycityID (cityID) 

LE OILEY IS NOEhING. Then 
MessageBox. ShOW (™ d4. r EI) 

Else 

Me.Displaycity () 


ERAQ TÊ 


Catch ex As Exception 


MessageBox. Show (ex.Message, ex.GetType.ToString) 


ERY: TEY 


ub 


te Sub Displaycity () 


CSECLEVID. TeX = CLEVE CLEYTD 
LSECLEV: TERE =  EIEVICIEEY 


( ا5 


te Sub btnDelete Click (ByVal sender As System.Object, 


ERQ 5 


Priva 


2 
3 

O 
n 


Priva 


System.EventArgs) Handles btnDelete.Click 
Dim result As DialogResult 
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MessageBox. SHOW ("Ja السجل حiف تريد‎ Ry ê ® & CIEYVSCICYID GE WoT, 
الذف تأکیرں"‎ ", MessageBoxButtons.YesNo, 
MessageBoxIcon.Question) 
If result = DialogResult.Yes Then 

TEY 


If Not clsCMDCity.Deletecity (city) Then 

MessageBox. Show ("كdlia‎ ةلlکn‎ ") 

Getcity (city.CityID) 

TF CIty TSNOE NOTHING THER 
Me.Displaycity () 

Else 


Me.ClearAllBoxes () 
ERA IJIÊ 


Else 


Me.ClearAllBoxes () 

EA. TÊ 

Catch ex As Exception 

MessageBox. Show (ex.Message, ex.GetType.ToString) 
ENG TEY 

ERAQ. EÊ 

DataGridView1. DataSource = Nothing 

LoadDataToGrid() 

ENQA SUB 


Private Sub btnClearBoxes_ Click (ByVal sender As Object, ByVal e As System.EventArgs) 
Handles btnAddNew.Click 

ClearAllBoxes () 

End Sub 


Private Süb btnShowAll Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnShowAll.Click 

LoadDataToGrid() 

End Sub 


Private Sub DataGridViewl_RowEnter (ByVal sender As Object, ByVal e As 
System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.RowEnter 
TEY 


Dim i As Integer = e.RowIndex 
Dim row As DataGridViewRow = DataGridView1l. Rows (İi) 
Dim city As clsCity = CType (row.DataBoundItem, clsCity) 


''MessageBox. Show (expen.ExpID) 

Dim cityID As Integer = city.CityID 
Me.Getcity (cityID) 

Catch ex As Exception 

ERIE Sub 


ERQ: TEY 
ERQ SUb 
End ÇCLass 
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الان نعمل پم‌امم0 او مں†م؟ ctەزPro لمشروعنا‎ 


اضف مشرو عا تالثا ينضم الى المشروعين السابقين يكون نو عه مں†م؟ Proj‏ 


File>Add>New Project 


Aid Hew Project 2 3 


Project types: Ternplates: HET Framework 3.5 كا بيه‎ 


ıı Windows Yisual Studio installed templates 
Web 
Smart Device @, Web Setup Project 
EH: Office 2# Merge Module Project E E Wizard 
:.. Database l8 Project a JSmart Device LAB Project 
: Reporting 
MY Templates 
Workflow “jSearch Online Templates... 
E isal C# 


Ysa ++ 
1: Other Proi 
setup and Deployment 


< Extensibility 


178 TeeF Proiprts 


Lreakte a Windows Installer project to which files can be added 


Hame: Sekupi 


Location: Documents and Settings{mMuhanmmadMy Documents1yisual Studio ZU0S1Projects\lassLibrat w# 
0 


لاضافة محتويات المشروع من اصناف و الى اخرة من موجودات اخرى في البرنامج انضر الصورة التالية 
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File System {Setup1)| Frmicity.vb | Frrmciky.¥b [Design] [ Form1.sb | ¥ XxX | Solution Explorer - Setup1 eH * 
> 2 2 = 
JE} File System on Target Machine 2 E 0 زك ا ت ا‎ 
ej dpplication Fifi E 1 [gg] solution 'MuhammadData' (3 projerl 
“Î User's Desktd | Folder E BEÎ MuhammadData 
f User's Progra Lreate Shortcut to Application Folder Project Gutput,.. IA] My Project 
E ا‎ app .canfig 
E] clstity vb 
Assembly... E] clsCMDCIy wb 
& | Delete E] rlstMDUsers, 4b 
E] clsDEBConnertion, Yb 
Ff | Properties Window 


E] clsllsers,+b 

= E2 YWindowsApplication 1 
lz] My Project 
ا‎ app .caonfig 
E] Formi.sb 
E] frracity wb 

LÈ Setup‏ ا 
Detected Dependencies‏ 


3 10 | #۶ 


بعد النقر على اںما0u‏ tءعمزه۴‏ سوف تظهر النافذه ادناه اختر من القائمة المنسدلة المشروع الرئيسي وهو ۸1 ic2†|0اowsSApP Wind‏ او اسم 


Add Project Output roup 


Project; 


Primary output WindawsApplicatian1 
Localized resource" 

Debug 5y¥mbols 

Zontent Files 

Source Files 

Documentation Files 

AML Serialization Assernblies 


Lonfiguration: Artie; 


Description: 


Lontains the DLL or EXE built by the project, 
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الان ناتي لاضافة قاعد البيانات الى مشروعنا‎ 


انقر يمين ثم اختر |۴ <ل ل۸ كما في الصوره ادناه 


Name Type 
ta MuhamrmadData ,dll Assen 
lg Primary output From WirdoysApplicatiorn1 (Active DUEpL 


4d Folder 
Lreate New Shortcut Project Output, ., 


jey Filê... 


Assembly... 


بعدها يجب ان نصل الى قاعدة البيانات المخزونه في المسار 


C:\Documents and Settings\Muhammad\My Documents\Visual Studio 2008\Projects\WindowsApplication 1\bin\Debug 


Add Files 


Lookin YER 


E Database1 
Database1 _log 

Muhammadbata‏ ا 

&| MuharnrmadData 

Muhammadbata, dll‏ ا3ا 
O WindowsApplication 1‏ 
WindowsApplication 1‏ ا 


r | WindowsÃApplicationi 
َ i WindowsApplication1 „exe 


Projects 


My Compute  FIwindowsApplication1 .4shost 
i WindowsApplication1 .wshast,exe 
3 WindowsApplicatianl .wshost,exe, manifest 


Ubject name: 


Ubjects of pe: All Files [F.*] 


32 


N-Tier Applications eng_muhammad76 
بعد ان قمنا باضافة قاعدة البيانات الى مشروع التنصيب نقوم باضافة ايكون حتى يمكن وضعه على سطح المكتب او قائمة ابدا‎ 


انقر يمين عذ” Primary output from windowsApplicatio ¬1)Active)‏ واختر انشاء مختصر 


Mame Type 
3] patabase1 mdf File 
3 Database1_log,ldF File 


ii MuhamrmadData ,dll Assembly 


timaty output from WindowsApplicati : 
Lreate Shortcut to Primary output from WindowsApplicationl Active} 


Dependencies 


ExcludeFilter 


Ikpukts 


| Cut 


= 
۴ Delete 


FÎ | Properties Window 


بعد انشاء المختصر سم المختصر كما يحلو لك انا سمیته 2009 مم۸ Muha ٣2٩۵‏ حلو مووو 
قم بنقل هذا المختصر الى uمعص‏ "ه۲ عه۴۲ ء٣‏ هول اسحبه وافلته هذا يعني انك بعد تنصييك للبرنامج سوف ترى المختصر موجود في قائمة ابدا 


قم بانشاء مختصر اخر كما فعلنا توا وضعه في ض‌0‌Deskt User's‏ 


الان اضف ايكون مميز لتميز برنامجك انقر یمین تم ٥ا۴<لك۸‏ 


hame Type 

&] Databasel mdf File 

3 Database1_log,ldF File 

A MuharmrmadData ,dll ûssernbly 
Eg Primary output Fram WirndowsApplicatian1 Active} DiuuEpuk 


Add | Folder 
Lreakte New Shortcut Project Cutpuk... 


EI File... 


Assembly... 


بعدها ابحٿث عن ایقونه جمیله وضعها 


انقر علی Program menu‏ 66ل وختر الايكون وضبط الخاصية كما في الصورة ادناه 
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|5J aru 


E] Database1.maf 
A Datahara1 lan IAF 


Properties 


Muhammad App 2003 File Installation Properties 


E HE 
E] Muhammad App Z003 
Arguments 
Description 
Folder \Jser's Programs Meany 
Shaw_md wsdsrRlormal 
Target Primary output 
Transitive False 
WarkirngFalder Application Folder 
Icon 


Defected Dependencies 

raf Microsoft ET Framework. 

1a Muhamnmadbata,dll 
El Primary output from WindowsApplication1 {Active} 
&] Chart.ico 


ğ] Database1 .mdf 
iA Nnatahara1 Inn IAF 


thar IRAQ 

Description 

DetectNewerInstalledYersion TrUE 

Instalalllsers False 

Keywords 

Localization English {United State: 
Manufacturer IRA 
ManufacturerLlrl 


PastBuildEYent 
PreBuildEYent 


ead FT mlm, ITE TANT TATE AC 
ثم اختر الايقونه كما اخترناها من قبل‎ 


الحقيقة الخيارات كثيرة ولكن ندعها لك لتكتشف المزيد 
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Add Gutput,,, 
Add Assembly... 


N-Tier Applications 


File narme: 


Select Item iıı Project 


E Application Folder 


Li Documents and SettingsiMuhammadiMy Dior 


Icon Files (*, ico} ا‎ 


1 Ok Î Cancel 


Source path: 


Files of type: 
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هل ترغب باضافة ١٥۷٣ء ا5۵ الى مشروعك حتى يتمكن برنامجك من الاشتغال على اي حاسبة اخرى؟؟‎ 


اكيد ترغب بذلك قم بالنقر يمين على ءءاااممه٣۴<مں†م؟‏ سوف تظهر النافذة التالية 


setup] Property Pages 


configuration: | ActiyeDebug] ¥ Î Platform: (MIA configuration Manager... 
1l Zonfiguration Properties 
ا‎ Dukpuk Fila name: GDebugî5etup1 .rmsi اا‎ 
Package Files: In setup File ا‎ 


Lomprtession: Optimized For speed 


AF Unlimited 


L_ustom! Toy Eb 


بعد النقر على زر ءعاأءا »مم۴۲ قم باختيار البرامج التي تعجبك والتي يتاثر برنامج بها في حال لم تكن موجودة عند المستخدم او الزبون 
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Setup Property Pages 


Prerequisites 


Lreate setup program ta install prerequisite camponenks 


Lhoanse which prerequisites to install: 
CE BETTE 
|_| Hl erystal Reports Basic For Yisual Studio 2008 (x6, x64 
{Microsoft visual Studio 2008 Report Yieyer 
Hl 5OL Server compart 3,5 
1 owerPacks 1,1 
El ادنا‎ Studia Tools For the Office system 3,0 Runtime 


ISL Server 2005 Express Edition SPZ (xê 


heck Microsoft Ipdate For more redistributable cariponants 
Specify the install location For prerequisites 


O Download prerequisites from the component Yendor's web site 


(@ Download prerequisites from the same location as my applicatiori 


O Gawnlaad prerequisites frorm the Following location: 


BF se 


الان الخطوة الاخيرى لاتمام المشروع هي عمل ١‏ ااںB‏ للمشروع م ںام انقر يمين على مں†مS‏ ثم Build‏ 
اذهب الى مسار المشروع عںطع0٥|1مںم5‏ سوف تجد كل الملفات المطلوبة 


بعدها قم بتنصيب البرنامج وشغل البرنامج اذا لم تم الاتصال بقاعدة البيانات اذا الى مسار التنصيب كما في الصورة ادناه وقم بتحرير ملف الاعدادات 


36 


eng_muhammad76 


Databasel 
SAL Server Database Primary ... 
2,240 EB 


Database1_log 
SL Server Database Transac,.. 
SU4 KB 


WindowsA pplication 1 
Windows pplication 1 
IRA 


mMuhammadData, dll 
1.0.0.0 
MuhammadData 


Open With... 


send Ta 


Luk 
Lopy¥ 


Lreate Shortcut 
Delete 


Renarmıê 


Properties 


غير المسار فقط وحفظ التغيرات 


Tanls Help 


OQ ta 3 î J sear E Folders 7 Û Fader SYNE 
Address | (E C:Pragrarmn FileslIRAQISetupZ bi 


N-Tier Applications 


Fila Edit View Favorites 


File and Folder Tasks رھ‎ 


| Rename this File 

2" Mowe this File 

Loapy this File 

E Publish this file ka the Web 
E-mail this File 

3K Delete this File 


Other Places 


| IRA 


8 MY Documents 
l_j Shared Documents 
4 My Larmputer 

My Metmwork Places‏ ي 


Details 


File Edt View Favorites Tools Help 


OQ sa ¥ 3 î Û Sear I Falders FE: @ Folder Sync 


| Databasel Databasel_log 
SAL Server Database Primary ... =| SQL Server Database Transat... 


2,240 KB S04 EB 


mMuharmadData, dll WirndomsApplicatiorı1 
1.0.0.0 WindowsApplicatiorı1 
mMuharmrmadData IRAQ 


WwindowsÃApplication1 ,exe 
ZOMNFIG File 
2 KB 


Address a CHPrograrn Files IRAQISetupZ 


File and Folder Tasks 


wÎ] Rename this file 

Eî Move this file 

Copy this file 

€ Publish this file to the Web 
3 E-mail this File 

¢ Delete this File 


E WindowsApplicationl .exe - Notepan 
Fils Edit Format Yiew Help 


SALEXPRESS;AttachDbFT Tename ft Program Files IRA SeETtupZAMDatabase1l.mdf ; Integrated Security=True;Connect Timeout=30;User Instance=TrlUle 
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بعدها قم بتشغيل البرنامج وشوف النتيجه 


Fil: Edit, Yi Favorites Tools Help î 


OQ se r 0 0 j serh E; Folders EH ج‎ Folder 54n 


Address | CHPragram FilesIRAQSetup2a اپ‎ e o 


5 | Database1 =| Database1_log 
File and Folder Tasks ات‎ LO SL Server Database Primary .,. = | SQL Server Database Tfansal,,, 
2,A EB SU4 KE 

Ei] Rename this file 

۳ Mowe this File MuharnrnadData, dll Windows pplicatiarı 1 
Rb. 1.0.0.0 WindomsApplicatianı1 

[Ê copy this fle # | muhammadData IRA 

€ Publish this file bo the Web 

e Windows Applicatian 1 ee 
@ E-mail this file EN 
x Delete this fila 2 KB 


Other Places 


j Raq 


3 My Documents 
mm] Shared Documents 
7 MY Larmpisker 

€ my network Places 


Details 


ادعو الله سبحانه وتعالی ان اكون وفقت في عملي هذا واعتذر عن الاخطاء والسهو 


اسئل الله سبحانه وتعالى ان يدخل اخي عمر رحمه الله الجنه وان يزوجه من الحور العين 
امین 
مع تحياتي 


Eng_muhammad76 
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